home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fatted Calf
/
The Fatted Calf.iso
/
Applications
/
GraphicViewers
/
Movie
/
Source
/
wraps.psw
< prev
Wrap
Text File
|
1993-05-21
|
568b
|
20 lines
// wraps.psw - PostScript wrappers
defineps PSWtext(double width, height; char *text; int num)
1 setgray
/Times-Italic 14 selectfont
/str 20 string def
5 19 moveto (text) show
/Times-Roman 14 selectfont
5 5 moveto width cvi str cvs show ( ) show height cvi str cvs show
num str cvs dup stringwidth pop width 5 sub exch sub 5 moveto show
endps
defineps PSWframe(double width, height; int num)
1 setgray
/Times-Roman 14 selectfont
/str 20 string def
num str cvs dup stringwidth pop width 5 sub exch sub 5 moveto show
endps